Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là số có trong xâu.

Var a: string;

 I,dem: integer;

Begin

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;

 Writeln(dem);

 Readln

End.

Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else

Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.

program xoa_ky_tu;
uses crt;
var x,y:string;
    i,j,dem,max: integer;
    a:char;
BEGIN
clrscr;
write('nhap xau x : ');
readln(x);
y:=x;

for i:=1 to length(x) do
begin
j:=i+1;
repeat
if x[i]=x[j] then delete(x,j,1)
else
j:=j+1;
until (j>length(x));
end;
writeln('xau sau khi loai bo ki tu giong nhau la :',x);

max:=0;
a:=' ';
for i:=1 to length(x) do
begin
dem:=0;
for j:=1 to length(y) do
if x[i]=y[j] then
dem:=dem+1;
if dem>max then
begin
max:=dem;

a:=x[i];
end;
end;
writeln('ki tu ',a,' xuat hien ',max,' lan');

readln;
end.

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:

Câu 1(2 điểm)

uses crt;

var a:array[1..100000]of int64;

i,n,x,dem:int64;

begin

clrscr;

readln(n,x);

for i:=1 to n do

read(a[i]);

dem:=0;

for i:=1 to n do

if x=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 2(2 điểm)

uses crt;

var n,k,i,dem:int64;

a:array[1..1000000]of int64;

{-----------------chuong-trinh-con-quick-sort------------------------}

procedure qs(d,c:int64);

var i,j,x,tam:int64;

begin

i:=d;

j:=c;

x:=a[(i+j) div 2];

repeat

while a[i]<x do

inc(i);

while a[j]>x do

dec(j);

if i<=j then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

inc(i);

dec(j);

end;

until i>j;

if d<j then qs(d,j);

if i<c then qs(i,c);

end;

{---------------chuong-trinh-chinh------------------}

begin

clrscr;

readln(n);

for i:=1 to n do

read(a[i]);

qs(1,n);

k:=a[n];

dem:=0;

for i:=1 to n do

if k=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 3(2 điểm) Bài làm của bạn Hưng Nguyễn Thái

var a,b,c:int64;

begin

read(a,b,c);

if (a+b <= c) and ((c-a-b) mod 2 = 0) then write('Yes')

else write('No');

end.

Câu 4(6 điểm) Bài làm của bạn Quý Lương

#include<bits/stdc++.h>
#define ll long long
using namespace std;
int main()
{
    ios_base::sync_with_stdio(false); cout.tie(NULL);
    ll n, k;
    cin>>n>>k;
    ll d=__gcd(n, k);
    n/=d; k/=d;
    cout << n/k << '.'
    n=n%k*10;
    ll s=0, t=k;
    for (s; t%2==0 or t%5==0; s++) {
        if (t%2==0) t/=2;
        if (t%5==0) t/=5;
    }
    for (s; s>0; s--) {
        cout << n/k;
        n=(n%k) * 10;
    }
    if (t==1) cout << "(0)";
    else {
        ll r =10%t;
        for (s=1; r!=1; s++) r=r*10 % t;
        cout << '('
        for (s; s>0; s--) {
            cout << n/k;
            n=(n%k)*10;
        }
        cout << ')'
    }
}

Câu 5(8 điểm) Bài làm của bạn Trần Nguyễn Đăng Dương

#include <bits/stdc++.h>
using namespace std;
int n;
long long a[100001];
long long f[100001];
void ans(long long x)
{
    int dem=1;
    for (long long i=2;i*i<=x;i++)
        if (x%i==0)
        {
            f[dem]=i;
            if (i!=sqrt(x))
            {
                f[dem+1]=x/i; dem+=2;
            }
            else dem++;
        }
    f[dem]=x;
    sort(f+1,f+dem);
    for (int i=1;i<=dem;i++) cout<<f[i]<<endl;
}
int main()
{
    ios_base::sync_with_stdio(false);
    cin.tie(nullptr); cout.tie(nullptr);
    cin>>n;
    for (int i=1;i<=n;i++) cin>>a[i];
    long long gcd=abs(a[2]-a[1]);
    for (int i=3;i<=n;i++)
        gcd=__gcd(gcd,abs(a[i]-a[i-1]));
    ans(gcd);
}

I. PHẦN LÍ THUYẾT

câu 1:cho đoạn chương trình sau:

S:=0;

For i:= 1 to 6 do S:=S+i;

Tính giá trị của S?

II. PHẦN BÀI TẬP:

câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.

Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số

lần lặp chưa biết trước.

Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình

thực hiện bao nhiêu vòng lặp?

S:=1; n:=0;

While S <=10 do

Begin

n:=n+1;

S:=S+n;

End;